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{) | CHAPTER 1 


SAY SOMETHING IN BASIC 


GETTING STARTED 


A computer has no eyes, no ears ... a computer has no mouth, no vocal 


cords. So how do we communicate with a computer? 


We will use a teletypewrtter. 





ee 
Teletypewriter 
The teletypewriter is connected to the computer. 

+ Hardwired, by means of a cable that directly connects 
iii the teletypewriter to the computer. Look for the 
~¢ cable ... follow it ... find the computer! (But don't 

confuse the cable with the power cord.) 

° OR 


+ Indirectly, using the telephone system as the link. 
In this case, the teletypewriter may be remote from 
the computer ... it can be in any place that has 
telephone service. 


REMEMBER THIS. Many people use "TTY" as an abbreviation for 


"teletypewriter." We will too. 





Doe 


We use the TTY (teletypewriter ... remember?) to send messages to the ’ 
computer. In turn, the computer sends messages to the TTY for us to ea 
read. 


We send our messages in a language called BASIC. That's what this book 
1s all about - to help you learn to converse with a computer, using a 
language called BASIC. 


Let's begin. Here is a diagram of the TTY keyboard. 





ODOOODOOOOOOOO® 
®OOD@QOOOOOGES 
@QO@@DOOOO@O@OOE 


e) QDOOOOOOOOO &) 


Locate the keys with the following symbols. 


Letters: A B C D E F GG H I JK OG M 
N O P Q R S&S U V W X YY @G@ 

Digits: 1 23 4 5 6 F7 8 9 OQ | 

Special: $m eB Of ek Sony * fi Je * 


To type a letter or a digit, simply press the appropriate key. 


To type . or , or : or / or -, press the appropriate key. 


To type one of these 

fold down either SHIFT > 
Key and press the key | 
with the desired 

character. 


~ 





r A SMALL TALK 


Ra 
Begin! Type something on the TTY and press the a key. The 
computer will probably type 








The message vartes 
from computer to computer. 
But the point ts ... the 

computer did not understand 
you. 


WHAT? 





or perhaps 







or maybe 





ERROR IN LINE @ 


So try this ... you press the keys ... you do the typing. 


Finish each line by pressing 


S 





Do it. You type 


SCR 











10 PRINT “MY HUMAN UNDERSTANDS ME" 
20 END 


Don't forget to 
press the RETURN Key. 


Then type 


RUN 


and the computer will type 


MY HUMAN UNDERSTANDS ME 









Ntce thought, but tt wasn't an original computer 
tdea. The computer stmply printed what you told 
tt to print. 







Let's review what happened. First, you typed \ 


Soe 


SCR 
and pressed the RETURN key. This told the computer to SCRatch any old 
data in its memory. It's sort of like erasing the blackboard before 
you start writing on it. 


Next, you typed a short program, consisting of two statements. 


10 PRINT "MY HUMAN UNDERSTANDS ME" Each statement begins with 
20 END a line number (10, 20). 





As you typed the program, it was stored into the computer's memory. 


After entering the program, you then typed 
RUN | The computer ran the program and typed 


MY HUMAN UNDERSTANDS ME 





then it stopped. 















The statement: PRINT "MY HUMAN UNDERSTANDS ME" 
tells the computer to print this message. 
The statement: END 
tells the computer to stop. 
Every statement must begin To run a program, type 
with a Zine number. A line RUN. e 


number is a positive integer 






between 1 and 9999, inclusive. 






To erase a program, type 
SCR. 


{ Still your turn. Try this one ... type 


SCR SCRatch the preceding program 
10 PRINT "7 + 5" Enter the new program 

20 END 

RUN RUN the new program 


DS The computer types what you tell 


it to type. 


Next ... let's replace line 10 with a new line 10. 





10 PRINT 7 + 5 No quotation marks. 
Then tell the computer to LIST the current program. 


LIST 
10 PRINT 7 + 5 €@———Here is the new line 10 
20 END @——————————— and the old line 20 


RUN RUN it. 
12 This time the computer does the 
arithmetic. 


The statement 
PRINT 7 + 5 


tells the computer to evaluate the numerical expression 7 + 5 (that 


do the arithmetic) and print the result as a decimal numeral. 
The statement 


PRINT *7 +°5" 


tells the computer to print the string enclosed in quotation marks 


exactly as tt appears. No arithmetic is performed. 


Strings? Numerical expressions? 


— 
PRINT “MY HUMAN UNDERSTANDS ME" 
This is a string. It is enclosed in quotation marks. 
PRINT "7 + 5" PRINT 7 + 
This is a string. This is nota = 
It is enclosed in string. It is 
quotation marks. a numerical ex- 
pression. 





Your turn again. Try these. 


SCR 
10 PRINT *7 + 5 =" , 7 + 5<C TT] note the comma between 
20 END "7 + § =""and 7 + &. 
RUN | 
7+ 55 iZ 
a oF 
Replace line 10 as follows. 
10 PRINT "7 + 5 ="; 7 + 5 <Cote the semt-colon 
between "7 + 5=" and 7 + 5. 
Then LIST the modified program and RUN it. 
LIST 
10 PRINT “7 + 5=""3; 7+ 5 If a PRINT statement 
20 END contains more than a 
RUN one item (string or o 
expression) the items 
7 +5 = 12 must be separated by 
commas or semi-colons. 2 





© 


Tell the computer to 


SCR 

10 PRINT 7+5, 7-5, 7*5, 7/5 
20 END 

RUN 


12 2 a2 1.4 


tell the computer to add, use 
tell the computer to subtract, use 


tell the computer to multiply, use 
tell the computer to divide, use 





To tell the computer to squeeze the answers more closely together, use 
semicolons instead of commas. 


10 PRINT 7+5 ; 7-5 ; 7*5 ; 7/5 
RUN 


LZ Zz 35 1.4 


Mixed operations? Try this one. 


10 PRINT 2*3+4, 2*3 + 4*5, 2*3/4 
RUN 


10 26 Led 


Use parentheses to group terms. 


10 PRINT 2*(3 + 4), (2 + 3)*(4 + 5), (2 + 3)/(4 + 5) 
RUN 


214 45 »599056 


MISTAKES ‘ 


i 
Do you occasionally make mistakes? We do ... watch. 
1Q PTINT 2*3+4 We misspell PRINT. 
SYNTAX ERROR The computer tells us we made an 
error. (Look up "SYNTAX" in your 
dictionary.) 
The error message may be different on your computer. That's not the : 


point. The point is: if we had noticed that we hit T when we meant 
to hit R, we could have corrected it by using the back arrow. 





The back arrow < is above the letter O. 


To type + hold SHIFT key down and press 


PT+RINT 2*3+4 The back arrow (<«) deletes the 
character that it points to. 


Sout 
PTTT<<<RINT 2*3+4 Three wrong characters wiped out 
by three back arrows. 
Can I do this? Can I do that? What happens if I 
(You complete the question) © 


Obviously, we can't answer all your questions in 
this book. But you and the computer can answer 
most of them. | 


® 


EXPERIMENT! ... GAMBLE! ... GUESS, THEN TRY IT! 





ot * CHAPTER 2 


GROWING PAINS 


SHORTHAND FOR LARGE NUMBERS 
The population of the U. S. is about 205 MILLION people. 


205 MILLION = 205,000,000 


& Tell the computer to print 205,000,000. 
10 PRINT 205000000 No commas! Why? Try it and find out. 
99 END 
RUN 
2.050000E+8 This is a floating point number. 
: Read on! 


Floating point notation is simply a shorthand way of expressing very 
large or very small numbers. In floating point notation a number is 

Suet represented by a manttssa and an exponent. They are separated by the 
letter E. 


2.-050000E+8 
mantissa exponent 


The exponent tells you how to move the decimal point of the mantissa 

in order to obtain the ordinary notation form of the number. If the 
2 exponent is positive, move the decimal point of the mantissa to the 

right. If the exponent is negative, move the decimal point to the left. 
oe (What if the exponent is zero?) 


Here are some more examples showin numbers expressed in floatin 
p 
point notation and "ordinary notation." 





FLOATING POINT NOTATION ORDINARY NOTATION 

1. 000000E+6 1000000 (1 MILLION) 

1. 000000E+9 1000000000 (1 BILLION) 
1.000000E+12 1000000000000 (1 TRILLION) 
eS 1.000000E-6 .000001 (1 MILLIONTH) 

1.000000E-9 .000000001 (1 BILLIONTH) 

1.000000E-12 .000000000001 (1 TRILLIONTH) 


Perhaps you have noticed that the computer always prints the mantissa —_ 
as a seven digit number and the exponent as a one or two digit number. 


An experiment. 


10 PRINT 123456 , 1234567 , 12345678 
99 END 
RUN 


123456 1.234567E+6 1.234568E+7 


The mantissa is rounded to seven digits. 





Your turn. 


A light year is a measure of distance, the distance that 
light travels in one year. The speed of light is 186283 
miles per second. How many miles in a light year? Use 

the computer to find out and write the answer below in 


floating point notation miles. 


ordinary notation miles. 


If a snail slithers at the rate of one inch per second, 
how long will it take him to slither completely around 
the earth, following the equator? (Assume that the 
snail can slither on water.) The radius of the earth 
is about 4000 miles and C = 2ntr. 


Your answers 


seconds days be 
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TOO MANY PEOPLE 


At the end of 1970, the population of the earth was about 3.6 BILLION 
people. 


3.6 BILLION. = 3,600,000,000 = 3.6E9 


If the present growth rate persists, the population will double every 
35 years. Suppose this actually happens ... what will the population 
be in the year 2250? 


22 - 197 280 : 
2250 So ee 8 doublings 


We could do it like this. 


10 PRINT 3.6E9*2*2*2*2*2*2*2*2 (8 doublings ... count them!) 
99 END 
RUN 


9.216000E+11 @——<— Too many people! 
Here is a shorter way. 


Do you remember? 2H 2RN 2H 2H 228.2% 2225 2° 


In BASIC, we write 2° like this: 248 


10 PRINT 3.6E9*2+8 Multiply 3.6E9 by 2°. 
99 END 
RUN 


QD. 2LEOQOE+ 11 a Still tOO Many people! 


Remember 


@ To compute a power of a number, use + 
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All ‘those people ... where will they live? On the surface of the 


earth. But what is the surface area of the earth? We don't know - oad 
but we do know this: 
+ The earth is very nearly spherical in shape. 
+ Its radius is about 4000 miles. 
+ The surface area of a sphere is 
S = 4nr? "approximately equal to" 
where r is the radius and 7 = 3.14 r 





Therefore, the surface area of the earth is 


S = 4x 3.14 x 4000? square miles. 


Use the computer. 


10 PRINT 4*3.14*4000t2 
99 END 
RUN 


2.009600E+8 


The surface area of the earth is 
2.009600E+8 = 200960000 square miles. 
You may prefer a more verbal approach. 


10 PRINT “AREA OF EARTH IS" ; 4*3.14*4000+2 ; "SQUARE MILES" 
99 END 


RUN 
i 


AREA OF EARTH IS 2.009600E+8 SQUARE MILES 


How many people per square mile in 


1970? 2205 





Lé 


BOXES 


Deep down inside the computer there are 26 little boxes. 





26 BOXES LABELED A THROUGH Z 


Fach box can contain one number at any one time. We have already 


stored numbers in some of the boxes. 


@ 7is in box A 


@ 5 is in box B 


What number is in box F? in J? 


—~6 is in box and 2.5 is in box : 


O.K., using a penctl, put 8 into C. In other words, write the numeral 
"8" in the box labeled 'C.' Then do the following, carefully! 


(1) Put 12 into N. 


(2) Put 27 into N. But wait! A box can hold only 
one number at a time - before you can enter 27 
into N, you must first erase the 12 that you 
had previously entered. 


When the computer puts a number into a box, it automatically erases 
the previous content of the box. , oe 
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Tell it to the computer. 


OE OB sO eee Put 7 into box A. 

20 PRINT A<—————————————- Print the content of box A 
99 END 

RUN 





10 LET A= 7 
20 LET B= 5 
30 PRINT A+B, A-B, A*B, A/B 
99 END 
RUN 
LZ 2 30 1.4 


More practice? O.K. 


10 LET A = 2 A+B 
20 LET B = 3 C+D 
30 LET C= 4 
40 LET D = 5 
50 PRINT A+B+C+D, A*B*C*D, A*(B+C), (A+B) / (C+D 
99 END Wasi 
RUN 
14 120 14 «5555556 


We call A, B, C, ..-, 2 variables and refer to the number in box A 
as the value of A. The number in box B is the value of B, the number 


in C is the value of C and so on. 


Without using the computer, complete each of the following RUNs as 
you think the computer would do it. Then use the computer to find 


out if you are correct. 
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THE PRINT STATEMENT 


We have used several PRINT statements. The general form of a PRINT 


statement is shown below. 
PRINT Ztst 


Where 7tst is a list of expresstons and/or strings. Items in the list 


must be separated by commas or semicolons. 
Expressions come in two flavors, numerical and variable. 


Numerical expression: 2* (3+4) 
Variable expression: A* (B+C) 


More examples? O.K. 


NUMERICAL EXPRESSIONS VARIABLE EXPRESSIONS 


2*3 + 4%*5 A=B + €*D 


4*3.14*400t2 4*3.14*Rt2 


3.6E9/2.0096E8 P/S 





A string is a set of symbols enclosed nm quotation marks. 


PRINT “A*B" PRINT A*B 

This is a string. This is nota 

It is enclosed in string. It isa 
quotation marks. variable expression. 


The statement PRINT A*B tells the computer to evaluate the variable 
expression A*B using the current values of A and B (the numbers 
in boxes A and B) and print the answer. 


L5 


Store the following program and use the computer to help you complete 


the table. Modify the program as you wish. 


(Hint: Change Line 10.) 







10 LET Y=2005 

20 LET N=(Y-1970)/35 

30 LET P=3.600000E+09*2tN 
40 LET A=2.009600E+08 

50 PRINT " YEAR"," PEOPLE","PEOPLE/SQ. MI." 
60 PRINT Y,P,P/A 


N ts the number 
of doublings. 


99 END 
RUN 

YEAR PEOPLE PEOPLE/SQ. MI. 
2005 7.200000E+09 35.82803 


PEOPLE/SQ. MI. 


3.600000E+9 17.91401 
7.2Q0000E+9 35.82803 





If the population continues to double every 35 years, what will the 
population be in the year 3020? 





Your answer: 


How many people per square yard in 3020?! (There are 1760 yards in 
One mile.) 


Your answer: 
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CHAPTER 3 


AUTOMATION 


DIVISION OF LABOR 


You and the computer have worked diligently. But you have done too 


much of the work, the computer too little. 


A PROBLEM. In year zero, we start with a population of P people. The 
population increases by 1% each year. Inn years the population will 
be 


1% increase per year 


= Pil + 1/100) So Besar 


initial population 


population at the end of n years 


If the growth rate is 2% per year, then 


Q = P(1l + 2/100)” 


If the growth rate is 2.5% per year, then 


Oe Pil + 2.5705)" 


and if the growth rate is r% per year, then 


Q = P(1 + r/100)” 


Let's write a BASIC program to compute and print the value of Q for 


given values of P, R, and N. WHEN YOU LOOK AT THE PROGRAM, REMEMBER 
THESE THINGS, 


is the initial population. 
is the growth rate. 


is the numbercd years. 


Oo 2D 


is the population in N years. 
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You do it. First, type 


SCR and press the RETURN key. 

10 INPUT P Then enter the program. Enter 
20 INPUT R each statement exactly as shown 
30 INPUT N (and press the RETURN key after 
40 LET Q = P¥*(1 + R/100)+tN each statement of course). 

50 PRINT Q 

60 END 


The program is now stored in the computer's memory. Now you can RUN it. 
Type 





RUN and press RETURN. The computer 


types a question mark. 
2 = _] 


The computer wants something. It wants what the program tells it to 
want. It wants you to INPUT P. Do it. Enter 1000 as the initial 
population. 


2 1000 Enter 1000 and press RETURN. The Set 
computer types another question 
2 mark. 
Now what does it want? Of course, the value of R. Do it! 
? 1000 Enter 1 (for 1%) and press RETURN. 
cos The computer types another ?. 
Z 
That‘s right. The computer wnts the value of N. Let's try 20. 
21000 Enter 20 and press RETURN. The ES 
et computer computes and prints the 
? 20 value of Q, then stops as it 
reaches and obeys the END state- 
1220.190 ment. 
The program is still in the computer's memory. RUN it again. 
RUN 
2? 1000 P = 1000 people - initial population 
. 2 R = 2% increase each year. 
? 35 N = 35 years. ~ 3 
1999.889 Q is about 2000 people. The 
population doubled! 
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To RUN the program 


+ Type RUN and press the RETURN key. 


> The computer types a question mark. Type 
the value of P and press the RETURN key. 


+ The computer types a question mark. Type 
the value of R and press the RETURN key. 


+ The computer types a question mark. Type 
the value of N and press the RETURN key. 


Do it! 
RUN 
? 3.6E9 P = 3.6 billion people (Earth, 1970) 
ob R = 2% 
? 100 N = 100 years 
2.608064E+10 Q = too many people! 


Your turn. Do one for us. Complete the following. 


RUN 
? 200E6 P = 200 million people (USA, 1970) 
C deale R = 1.5% 
? 100 N = 100 years 
Q= people 


Then do one for yourself. You pick the values of P, R and N. 


RUN 

2 Your value of P. 
is Your value of R. 
? Your value of N. 


Q= ssi sépecop le. 
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SLOW DOWN, TEACHER! 


O.K. Let's retrace our steps. We start with a problem. 


THE PROBLEM: Compute Q for given values of 
Py & 28d Ha 





Q = P(1 + r/100)” 


We write a program. Then, program in hand, we cautiously approach the 


computer, confront the TTY, type 
SCR and press RETURN. 
The computer clears its memory of any old programs and patiently awaits 


our next move. We grow bold ... throwing caution to the wind, we type 


in the program. Observe! 


10 INPUT P 

20 INPUT R 

30 INPUT N ! 

40 LET Q = P*(1 + R/100)t+N 
50 PRINT 

END 


Then, triumphantly, we type 


RUN and press RETURN. 


The rest is history. The computer RUNS the program, periodically re- 
questing data. It types a question mark; we type the value of P. It 
types a question mark; we type the value of R. It types a question 
mark; we type the value of N. Then, having obtained the given data, 
the computer quickly, efficiently, effortlessly, flawlessly, computes 
the value of Q, prints it and stops. 


Now that we have solved the problem one way, let's do it again using 


a Slightly different approach. 
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As usual, we want you to do it. Type, as directed below. 


SCR . First, SCRatch the old program. 

10 INPUT P, R, N 

20 LET Q = P¥*¥(1 + R/100)tN Enter the new program. 

30 PRINT Q 

99 END 

RUN Then RUN the new program. 

? 1000, 1, 20 Enter numbers for P, Q, R and press 


L220.190 <——— a RETURN. Here 1S the answer. 


In the above program there is only one INPUT statement, but it asks for 


input of three numbers, one number for each variable in the INPUT state- 
ment. 


10 INPUT P, R, 
@-. 1000; 1, 20 


Let's look at the general form of an INPUT statement. 


GENERAL FORM: line number INPUT list of vartables 
EXAMPLE: 10 INPUT | P, R, N 


The variables in the list are separated by commas. That is, between 
any two variables, there is a comma. But note carefully there is no 


comma following INPUT and there is no comma following the last variable 
in the list. | 


+ INPUT tells the computer to type a question mark and 
then stop. It's your move. 


> You must enter a number for each variable in the list 
of variables in the INPUT statement. Type commas 
between numbers. 


> After typing the last number, press RETURN. 
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Is the program on Page 21 still in the computer? If so, good. If 


not, enter it. 


Now we assume that the program on Page 21 ts in the computer. Do not 
type SCR. Instead, type 


40 GO TO 10 New statement. It tells the 
computer to GO TO Line 10. 


You have added a statement to the program in the computer. Let's look 


at the program as it now resides in the computer's memory. Type 


LIST and press RETURN. The computer 
now types the complete program, 
like this 

10 INPUT P, R, N 

20 LET Q = P¥*(1 + R/100) +N 

30 PRINT Q 

40 GO TO 10 en Hore is the statement you added, 


99 END right where it should be, between 
Line 30 and Line 99. 







RUN 
2? 1000, 1, 20 Enter values. 

1220.19 Computer prints answer and goes around. 
2? 1000, 2, 35 Enter values. 

1999.889 Computer prints answer and goes around. 
2? 3.6E9, 2, 100 Enter values. 

2.608072E+10 Computer prints answer and goes around. 
? Your turn. Enter values 

Computer prints answer and goes around. 
? But how do we get out of this? 
Type STOP and press 
RETURN. 

2? STOP 

READY Computer types READY. Read on! 
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READ and DATA 


Let's start with the program on the preceding page and make a couple 
of changes. - 


10 READ P, R, N Change INPUT to READ 

30 PRINT P, R, N, Q Change the PRINT statement. 

90 DATA 1000, 1, 20 Add three DATA statements. 

91 DATA 1000, 2, 35 Each DATA statement contains one 
92 DATA 3.6E9, 2, 100 set of data ... values of P, R, N. 
LIST Then LIST the modified program. 


10 READ P, R, JN @&e———— Here is a change. 
20 LET Q = P*(1 + R/100)tN 

30 PRINT P, R, N, Qqe@———————- Here is a change 
40 GO TO 10 


90 DATA 1000, 1, 20 
91 DATA 1000, 2, 35 And three added statements 
92 DATA 3.6E9, 2, 100 


99 END 

RUN 
1000 1 20 1220.190 
1000 2 35 1999.889 
3.600000E+9 2 100 2.608072 


OUT OF DATA IN LINE 10 a This means what it says. The 
computer has run out of data. 


Now it's your turn. Add the following statement, 
5 PRINT wu p" Z Ww R" ; Ww N" - ee Q" 


and RUN the program. The results should look like the following. 


P R N Q 

1000 1 20 1220.190 
1000 2 : as 1999.889 
3.600000E+9 2 


100 2.608072 


OUT OF DATA IN LINE 10 


If you want to see what the program looks like, LIST it. 
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We used three DATA statements, each with one set of values for P, R 


and N. But we could have put all the data in one DATA statement. 
Try it. Type 


90 DATA 1000,1,20,1000,2,35,3.6E9,2,100 


Wait! Since you have put all the data in Line 90, you no longer need 
lines 91 and 92. Let's delete them. 


ot | If you type a line number and press 
92 RETURN, the computer erases that line, 
but only that ltne, from its memory. 


Now LIST the program and then RUN it. 


LIST 

5 PRINT " pt, iT R", " nt, " py 

10 READ P, R, N 

20 LET Q = P*¥(1 + R/100) tN 

30 PRINT P, R, N, Q 

40 GO TO 10 

90 DATA 1000,1,20,1000,2,35,3.6E9,2,100 


99 END 
RUN 

P R N Q 

1000 i 20 1220 190 
1000 2 35 L999.889 
3.600000E+9 2 100 2.608072E+10 


OUT OF DATA IN LINE 10 


READ tells the computer to read numbers from a DATA statement, one 
number for each variable in the READ statement. Use as many DATA 
Statements as you wish to hold the data. When the computer uses all 
the data in a DATA statement, it automatically moves to the next DATA 
Statement. If it can't find any more data, it types a message such as 
OUT OF DATA. | 


Try this. Add the statement 7 PRINT 


RUN the program again. 
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CHAPTER 4 


COMPUTER POWER! 


TABLE-MAKER 


With the help of our trusty computer, we have constructed a table 


showing the value of 
Q = P(1 + r/100)” 


for fixed values of P and r and several equally spaced values of n. 
Here is a copy of the computer RUN. 


RUN 


P=P LOOOO lene eee INitial population = 100000 
R22 2 —— Growth rate = 2% per year 


POPULATION 
0 100000 
10 121899.4 
20 148594.7 Computer prints a table showing 
30 181136.1 population at the end of 0, 10, 
40 220803.9 20, 30, .-- , 100 years. 
50 269158.8 
60 328103 
70 399955. 7 
80 487543.8 
. ao 594313.1 
100 724464.4 


and so on ... we stopped the computer by pressing (s) 


If we had not interrupted the computer, it would have continued 


on and on and on and.... 
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Let's look at the program. 


Here is the program that produced the RUN on the preceding page. 


RUN it ag 


and so on ... we stopped the computer by pressing 


RUN the program again for your values of P and r. 









stop tt. How? 








ain, this time for P = 


PRINT "P="; 

INPUT P 

PRINT "R="; 

INPUT R 

PRINT 

PRINT " N","POPULATION" 
PRINT 


205E6 and r 


100, unless you 


1%. 


Beware! If you RUN the program, the computer 
will not stop you following n 


Press the (s) key to stop the computer. 


205E6 = 2.05E8 


LET N=0 

LET Q=P* (1+R/100) tN 

PRINT N,Q 

LET N=N+10 

GO TO 60 

END 

205E6 

ef 

POPULATION 

2.-Q50000E+08 
2.264475E+08 
2.5013 89E+08 
2.763090E+08 
3.052170E+08 
3.371494E+08 
3.724226E+08 
4.113862E+08 
4.544263E+08 
5.019693E+08 


5.544863E+08 
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We 


O.K., we'll try to explain how the program works. 


THE STATEMENT(S) BELOW CAUSE THE FOLLOWING PRINTOUT 


PRINT"P="; 
INPUT P 








P=? (then you supply the value of 
P) 












PRINT"R="; 
INPUT R 


R=? (then you supply the value of 
R) 





PRINT 





One vertical line space. 














PRINT" N", "POPULATION" 





N POPULATION 


PRINT 





One line space. 














LET N = 0 No printout. The computer puts 0 


into box N. 








LET Q=P* (1+R/100) +N 
70 PRINT N,Q 
80 LET N=N+10 
GO TO 60 







This is a loop. Lines 60 through 
90 are repeated over and over. 

Each time through the loop, the 
computer prints one line of the 
table. 












END 


Let's check the Loop once more. 


START HERE and follow the arrows 


¢ 


60 LET Q=P* (1+R/100) tN 







70 PRINT N,Q 
80 LET N = N + 10 


90 GO TO 60 


Are you confused by LET N = N + 10? This statement tells the computer, 
> increase the value of N by 10, or 


+ add 10 to the number in box N and 
put the result into box N. 


The new value of N replaces the old value of N. 


27 


One more look at the program. We will trace it. That is, we will 
follow the computer as it RUNs the program and record the values of P, 
R, N and Q after.each statement is obeyed by the computer. Since the 
computer goes through the loop repeatedly, we will too. We will show 
what happens the first three times through the loop. (We assume 

P = 100000, R= 2.) 


STATEMENT Pp R N QO 

10 PRINT "P="; 

15 INPUT P 100000 

20 PRINT "R=" 100000 

25 INPUT R 100000 2 

30 PRINT 100000 2 

40 PRINT " N","POPULATION"100000 2 

45 PRINT 100000 2 | 

50 LET N=0 100000 2 0 

60 LET Q=P*(1+R/100) tN 100000 2 0 100000 | 

70 PRINT N,O 100000 2 0 100000 2 

80 LET N=N+10 100000 2 10 100000 : 

90 GO TO 60 
; -f LET Q=P* (14+R/100) +N 100000 2 10 121899.4. |} 
: 70 PRINT N,Q 100000 2 10 121899.4 || 

80 LET N=N+10 100000 2 20 121899.4. | 

90 GO TO 60 

& LET Q=P* (1+R/100) +N 100000 2 20 148594.7 

70 PRINT N,Q 100000 2 20 148594.7 

80 LET N=N+10 100000 2 30 148594.7 


90 GO TO 60 


and so on, “forever". 


P and R don't change 


N changes every time 
line 80 is obeyed 


Q changes every time 
line 60 is obeyed. 


CROWDED 


Our population table becomes more interesting if we include the number 


Of people per square mile. 


Easy! Simply modify the program on Page 26. Here are the changes. 


air 
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40 
70 


Make the 


Your run 


RUN 


200 


PRINT “A="; A is the area in square miles. 
INPUT A 


PRINT " N", "POPULATION", "“PEOPLE/SQ.MI." 
PRINT N, Q, Q/A 


above changes and RUN the new program. 


EARTH, 1970 


3.6E9 people 
2% 


57.2E6 square miles* 





should look like this. 


3.6E9 
2 
57.2E6 
POPULATION PEOPLE/SQ.MI. 
3.600000E+09 62.93706 
4.388380E+09 76.71993 
5.349410E+09 93.52116 
6.520901E+09 114.0018 
7.948942E+09 138.9675 
9.689715E+09 169.4006 
1.181171E+10 206.4984 
1.439841E+10 251.7204 
Ls 7551588710 - 306.8457 
2.139527E+10 374.0432 
2.608072E+10 455.9566 Getting crowded, 
1.836971E+11 3211.488 and still more crowded. 


and so on. 





*Land area. New York Times Encyclopedic Almanac 1971, p. 324. 
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Make one more small change in the program. 


ing. 


70 PRINT N, Q, INT(Q/A + -5) 


Before we RUN it, let's LIST the program with all the changes mentioned 


on this and the preceding page. 


10 PRINT "P="; 
15 INPUT P 

20 PRINT “R="; 
25 INPUT R 

27 PRINT “A="; 
28 INPUT A 

30 PRINT 


40 PRINT “ N","POPULATION","PEOPLE/SQ.MI." 


45 PRINT 

50 LET N=0 

60 LET Q=P* (1+R/100) +N 
70 PRINT N,Q, INT(Q/A+.5) 
80 LET N=N+10 

90 GO TO 60 

99 END 


N POPULATION 

0 3.600000E+09 
10 4.3883 80E+09 
20 5 .349410E+09 
30 | 6.520901E+09 
40 7.948942E+09 
50 9.689715E+09 
60 1.181171E+10 
70 1.439841E+10 
80 1.755158E+10 


30 


63 
77 
94 
114 
139 
169 
206 
252 
307 


-nearest person. 


Change Line 70 to the follow- 


PEOPLE/SQ.MI. 










Rounded to the 


The INT function has the general form 


where e is any BASIC expression. 


INT (e) 


The INT function tells the computer 


to evaluate the expression and then compute the greatest integer that 


is less than or equal to the value of the expression. 


EXAMPLES 


More 


Your 


(1) 
(3) 
(5) 
(7) 
(9) 
(11) 


INT(1) = 1 
INT (-3) = -3 


INT (3.999) = 3 
-4 


INT (-3.14) = 


INT(.001) = 0 


examples? 


Gather your own. 


10 PRINT "X="; 


20 INPUT X 
30 PRINT 


INT(2) = 2 

INT (3.6E9) = 3.600000E+9 
INT(.987) = 0 

INT (-999.@5) = -1000 
INT(-.001) = -l 


RUN the following program. 


Be creative...choose both 


plai 


n and fancy x's. 


40 PRINT “INT (X)=";INT(X) ,"INT(X+.5)="; INT (X+.5) 


590 =6oPRINT 
60 GO TO 10 
END 


turn. 


INT (6. 8) 





INT (6.2) 





INT (62. 93706) 


INT (206.4984) 


INT (-3.9) 


INT (-3.2) 


Without using the computer, 


(2) 
(4) 
(6) 
(8) 
(10) | 
(12) 
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complete the following. 


INT (6.8+.5) 


INT (6.2+.5) 





INT (62. 93706+.5) 


INT (206.4984+.5) 


INT (-3.6+.5) 


INT (-3.2+.5) 


BEWARE OF MATHEMATICAL MODELS 


We made an assumption and developed a mathematical model of population 


growth. 

ASSUMPTION: The increase in population each year is a percentage 
of the population at the beginning of the year. The 
percent increase, which we call n, does not change 
from year to year. 

MATH MODEL: If the initial population is P and the (constant) 
rate of increase is r% per year, then the population 
Q inn years is 

Q = P(1 + r/100)" 

QUESTIONS 


The above 


The last 


Does our model really resemble real life? 


Can we use it to predict the future population of the 
U.S.? Of the Earth? 


How far into the future can we expect our model to 
provide reasonably accurate predictions? 10 years? 
100 years? 1000 years? 


questions lead to more questions. 


Is the rate of increase (r) really constant or is it 
increasing or decreasing? 


Is the rate the same for different regions of the 
Earth (e.g., North America, Asia, etc.)? 


Can we look more deeply into the mechanisms of 
population growth (birth rate, death rate, migration, 
life expectancy, fertility, etc.)? 


Where can we get more information? 


question we can “) 


Population Reference Bureau, Inc., 1755 Massachusetts 


Avenue, N.W., Washington, D.C., 20036. 
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CHAPTER 5 


WORLDS OF IF 


SON OF TABLE-MAKER 


Earlier, we showed you a program to generate and print a table of 


Q = P(1 + r/100)” 


for equally spaced values of n (n = 0, 10, 20, ...). 


Here is the program again ... however, we have made one small change. 


10 PRINT "P="; 
15 INPUT P 
20 PRINT "R="; 
25 INPUT R 


30 PRINT 
40 PRINT " N","POPULATION" 
45 PRINT 


50 LET N=0 
60 LET Q=P* (1+R/100) tN 
70 PRINT N,Q 
80 LET N=N+10 
Here ts the change. We use an IF 
90 IF N<=100 THEN 60€— statement instead of a GO TO state- 
ment. Read on! 


99 END 
RUN 
P=? 205E6 
R=? 1 
N POPULATION 
0 2.050000E+08 
10 2.264475E+08 
20 2.501389E+08 
30 2.763090E+08 
40 3.052170E+08 
50 3.371494E+08 
60 3.724226E+08 
70 4.113862E+08 
80 4.544263E+08 
90 5.019693E+08 
100 5-544863E+08 @ After printing this line, the 
computer stops atuomatically, 


READY. and types READY. 
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The statement 


IF N <= 100 THEN 60 


tells the computer: 


IF THE VALUE OF N IS LESS THAN OR 
EQUAL TO 100 THEN GO TO LINE 60. 


If the value of N is not less than or equal to 100 the computer goes 


to Line 99 (because 99 is the next higher line number after 90). Since 


Line 99 is an END statement, the computer stops. 


Say it another way. 


60 


70 


80 


90 
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LET Q=P (1+R/100) +N 





PRINT N,Q Thts path ts followed 


for Vf = 0, W,20,..«.,t00. 





LET N=N+10 


IF N <= 100 THEN 60 
N > 100 






END fits path for N= tLe 


This is a condition. 


Follow this path if the . 
condition is TRUE. ie 


IF N<= 100 THe 69_____s 0 uz 60 


Follow this path if 
the condition is FALSE. 
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® 


Another view of the IF statement. 


General Form: IF econdttton THEN line number 
Example: | IF K>3 THEN 99 


The condition K>3 is true for some values of K, false for other values. 


Suppose K=4. Then K>3 is TRUE and the computer will 
go to Line 99. 


Suppose K=3 Then K>3 is FALSE and the computer will 


go to the line number that is next higher 
than the line number of the IF statement. 


Let's use the above IF statement in a program. 





10 LET K=1 If K>3 is TRUE, go to Line 99. 
20 IF K>3 THEN 99 If K>3 is FALSE, go to Line 30. 
30 PRINT K 

40 LET K=K+l1 > 
50 GO TO 20 
99 END 





The computer stops automatically 
READY and types READY. 


The condition in an IF statement is usually a math relatton between 
two BASIC expressions. The permissible relations are shown in the 
table below. 


RELATION MATH SYMBOL BASIC SYMBOL 


equal to 
less than 
greater than 


vA Il 


less than or equal to 


greater than or equal to 


MK liv uA 


not equal to 
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Let's’ trace the program. 


We will follow the computer as it RUNs the 


program and record the value of K after each statement is Obeyed by 


the computer. 


STATEMENT 


10 LET K=1 


20 IF K>3 THEN 99 
30 PRINT K | 
40 LET K=K+1l 

50 GO TO 20 


20 IF K>3 THEN 99 
30 PRINT K 

40 LET K=K+1 

50 GO TO 20 


20 IF K>3 THEN 99 
30 PRINT K 

40 LET K=K+1 

50 GO TO 20 


20 IF K>3 THEN 99 


99 END#& 





REMARKS 


K>3 is FALSE. Go to Line 30. 
Print the value of K. 
Increase K by l. 

Go around again. 


K>3 is FALSE. Go to Line 30. 
Print the value of K. 
Increase K by l. 

Go around again. 


K>3 is FALSE. Go to Line 30. 
Print the value of K. 
Increase K by l. 

Go around again. 


K>3 is TRUE. Go to Line 99. 


End of program. Computer prints 
READY and stops. 


Your turn. Trace one of the following programs. 


LET X=1 
PRINT X 
LET X=X+2 


IF X<8 THEN 20 
END 


LET C=4 

PRINT ¢ 

IF C= THEN 99 
bet Cel 

GO TO 20 

END 





RACE TO O 


BLIVION 


The following table shows the 1970 population and annual rate of 


populatio 





n increase for various regions of the earth.* 


REGION POPULATION RATE OF INCREASE (%) 
eS ATA a AEE A IST A TE 9 EA PIPES LIED tt PERE A SS EERE OLE TCE BL TS CG EE IER OTE EE 
AFRICA 344E6 2.6 
ASIA | 2056E6 203 
NORTHERN AMERICA 228E6 die ae 
LATIN AMERICA 283E6 2-9 
EUROPE 462E6 0.8 
U5. 5 oR. 243E6 dn QD 
OCEANIA 19E6 2.0 
The fastest growing region is Latin America and the slowest growing 


region is 


more than 


Q 


Try this 


Europe. In 1970, the population of Europe was considerably 


the population of Latin America. 


Assume: The growth rates for Europe and Latin 
America will remain constant. 











uestion: In what year will the population of 
Latin America become greater than the 
population of Europe? 
program. 
LET N=1 
LET E=462E6* (1+0. 8/100) tN E for Europe 
LET L=283E6* (1+2.9/100) +N , : 
IF L>E THEN 70 L for Lattin Amertea 
LET N=N+1 
GO TO 20 
PRINT "THE YEAR IS"; 1970+N 
END 


*Data obtained from 1970 WORLD POPULATION DATA SHEET, Population 
Reference Bureau, Inc., 1755 Massachusetts Avenue, Washington, 
Ds Ces 20036. 
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A more general program. We enter the 1970 population and growth rate 
for each population. The computer computes and prints the year in ' 


which the second population overtakes the first population. 


100 PRINT "FIRST POPULATION"; 
110 INPUT Pl 

120 PRINT "GROWTH RATE"; 

130 INPUT Rl 

140 PRINT 

150 PRINT "SECOND POPULATION"; 
160 INPUT P2 

170 PRINT "GROWTH RATE"; . 

180 INPUT R2 

190 PRINT 

200 LET N=l © 
210 LET Q1=P1* (1+R1/100) +N | 
220 LET Q2=P2* (1+R2/100) tN 

230 IF Q2>Q1 THEN 300 

240 LET N=N+l 

250 GO TO 210 

300 PRINT "THE YEAR IS";1970+N 





A BASIC vartable may be 
a letter followed by a 
digits 

















310 PRINT 
320 GO TO 100 
999 END 
RUN 
FIRST POPULATION? 462E6 
GROWTH RATE?0.8 eum HaEEPe 
tt 
SECOND POPULATION? 283E6 ‘ ‘ 
GROWTH RATE?2.9 es hah, Ser Nee 
THE YEAR IS 1994 
FIRST POPULATION? Your turn. But wait! Read on. 
Assumptions. We assume that the first population is greater than the 
second population in 1970 but that the second population is growing | 
more rapidly. Mathematically, we say that © 
PL > P22 ° and RL <= R2 & 
Try some data that violates one or both assumptions. 
Beware! You may have to stop the 
computer if you enter data for 
which the second population can't 
catch the first population. 
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We want to sneak in a new idea - checking for valid data. First, 


answer a few questions. 


+ Will Northern America ever catch up with Latin 
America? 


>+ What happens if we enter Oceania as the first 
population and Asia as the second population? 


+ Will Africa ever catch up with Latin America? 


Remember, our assumptions are Pl > P2 and R1< R2. Let's add some 
statements to the plgram to check the incoming data and reject data 
that violates one of the assumptions. The data violates the assump- 
tions if | | 


Pl $= P2 or Rl >= R2 
Add the following statements. 


181 IF Pl<x=P2 THEN 184 

182 IF R1>=R2 THEN 184 

183 GO TO 190 

184 PRINT "BAD DATA. TRY AGAIN." 
185 PRINT 

186 GO TO 100 


LIST the modified program. 
RUN it. Use several sts of @ta. After all, there are 42 different 
ways to select a FIRST POPULATION and a SECOND POPULATION from the 


seven regions shown in the table. 


If you have trouble figuring out how the program works, trace tt. 
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YOUR TURN 


Modify the program of Pages 38 and 39 so that results are printed as 


indicated below. 


FIRST POPULATION? 462E6 
GROWTH RATE?0.8 


SECOND POPULATION? 283E6 
GROWTH RATE?2.9 


THE YEAR IS 1994 
POPULATION ONE IS NOW 5.593641E+08 
POPULATION TWO IS NOW 5.620247E+08 


FIRST POPULATION? 


and so on. 


Modify the program so that the values of Pl, Rl, P2 and R2 are entered 
by means of READ and DATA statements. 


statements. 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


sci acai ok sll en 


462E6, 0.8, 
462E6, 0.8, 
462E6, 0.8, 
344E6, 2.6, 
283E6, 2.9, 
228E6, 1.1, 
Z283E6,; 2.9, 


283E6, 
344E6, 
243E6, 
283E6, 
228E6, 
283E6, 
462E6, 


ONFRN EF N 
° e ° 
OworWOOdw 


In fact, use the following DATA 


good data 


oo bad data 


For valid data, numerical results should be printed under the follow- 


ing heading. 
(top) DATA sta 


FIRST POP. 
1970 


4.62000E+08 


hed 


We show results corresponding to the data in the first 


tement dove. 
SECOND POP, 
1970 


2.83000E+06 


P2 


CATCHUP NEW FIRST 
YEAR POPULATION 
1994 5.593641E+08 


1970+N - 


40 


weit 


NEW SECOND 
POPULATION 


5.620247E+08 


Q2 


CHAPTER 6 


CAROUSEL 
ly wy oD 
Remember this program? 
10 LET K=l You first saw it on Page 35. 
20 IF K>3 THEN 99 
30 PRINT K It tells the 
40 LET K=K+l computer to count 
50 GO TO 20 to 3, then stop. 
99 END | 
RUN 
1 
2 
ig 
READY 


A new idea ... another way to count to 3. 


10 FOR K=1 TO 3 This is a FOR-NEXT loop. 
20 PRINT K 
30 NEXT K 
99 END 
RUN 
1 Count to 3, 
Z 
3 
READY. then stop. 


You guessed it. This chapter is about FOR-NEXT loops. 
A FOR-NEXT loop 


+ begins with a FOR statement 
> ends with a NEXT statement. 


+ usually includes one or more statements between 
the FOR and NEXT statements. 
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Eventually, we'll explain ... but first, more examples. 


-10 FOR K=0 TO 3 10 FOR K=2 TO 7 
20 PRINT K 20 PRINT K 
30 NEXT K 30 NEXT K 
99 END 99 END 
RUN RUN 

1 ok 
2 

3 3 
4 
READY. Ss 
6 
7 

READY. 


Got the idea? Try these. Without ustng the computer, complete each 
of the following by filling in the blanks. 


10 FOR K=10 TO 13 10 FOR K=-1 TO l 
20 PRINT K 20 PRINT K 
30 NEXT K 30 NEXT K 
99 END 99 END 
RUN RUN 
READY. 
READY. 


Have you noticed that all the programs on this page are identical 
except for Line 10? Good! Now check your work above by running the 
programs on the computer. Remember, you need change only Line 10 


each time. Then experiment - check out the following FOR statements. 


10 FOR K=5 TO 5 10 FOR K=3 TO l 


10 FOR K=1.5 TO 6.5 10 FOR K=0 TO 3.9 
10 FOR K=1.25 TO 5 10 FOR K=1.25 TO 5.25 


If any results puzzle you ... read on ... all will be revealed! 
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eg! 





Let's use a FOR-NEXT loop in a program to read and print the population 


data shown in the table, top of Page 37. 


10 PRINT "POPULATION", "GROWTH RATE" 


20 PRINT 


30 FOR K=1 TO 7 


40 READ P,R 
50 PRINT P,R 
60 NEXT K 


90 DATA 344E6,2.6, 2056E6 
91 DATA 228E6,1.1, 283E6, 
92 DATA 462E6,.8, 243E6,1, 19E6,2 seven patrs of numbers. 


99 END 
RUN 
POPULATION 


3.440000E+08 
2.056000E+09 
2.-280000E+08 
2.-830000E+08 
4.620000E+08 
2.430000E+08 
1.900000E+07 


READY 


Your turn. Modify 
ing results. 


RUN 


POPULATION 
1970 


3.440000E+08 
2.056000E+09 
2.280000E+08 
2.830000E+08 
4.620000E+08 
2.430000E+08 
1.900000E+07 


READY 


GROWTH RATE 


FOR-NEXT loop 


peed 
2.9 


Raw data from the table 
on Page 37. There are 


Each pair of numbers is 
read and printed, one 
pair per line. 


the above program so that a RUN produces the follow- 


GROWTH RATE 


POPULATION 
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2001 


7.623011E+08 
4.160711E+09 
3.200520E+08 
6.865356E+08 
5.914503E+08 
3.308025E+08 
3.510418E+07 


_ Another modification ... here are the results. 


RUN 
POPULATION GROWTH RATE POPULATION 
1970 1970 2001 

3.440000E+08 2.6 7.623011E+08 
2.056000E+09 2.3 4.160711E+09 
2.280000E+08 1.1 3.2005 20E+08 
2.830000E+08 2.9 6.865356E+08 
4.620000E+08 .8 5.914503E+08 
2.430000E+08 1 3.308025E+08 
1.900000E+07 2 3.410418E+07 

1970 WORLD POPULATION= 3.635000E+09 

2001 WORLD POPULATION= 6.886957E+09 eS 

READY. 


If you have trouble with the second modification, forget it for now ... 


read on ... return to the problem later. 


@ Check the 1970 WORLD POPULATION by adding the column of 
numbers under the 1970 POPULATION heading. 


The numbers are expressed in floating point notation. 


Careful! 


3.440000E+08 
2.056000E+09 
5.496000Et+17 


3.440000E+08 
20.560000E+08 or 
24.000000E+08 


Wrong way: 


Correct way: -344000E+09 


2.-056000E+09 
2.400000E+09 


® Check 2001 WORLD POPULATION 


® In 1970, the average growth for the WORLD POPULATION was 2%. 
Using the 1970 WORLD POPULATION and the 2% GROWTH RATE, compute 
the 2001 WORLD POPULATION (see pages 17 to 24). Is it the 


Same as the result shown above? If not, why not? @ 





(BEWARE OF MATHEMATICAL MODELS! ) 
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FOR AND NEXT EXPLAINED 


Saou 
There are two general forms of the FOR statement. Here is the first 
general form with examples. 
FOR vartable = expression #1 T0 expresston #2 
FOR K = 1 TO 3 
FOR X = g TO 1g 
FOR A = 2 TO 5 
" FOR J = 1 TO N 
FOR Cc = A TO B 
FOR Y = X TO Xt2 
FOR W = 2*U+1 TO 3*Ut2-U 





In other words 


ee —— TO — \ 


any BASIC variable any BASIC expression any BASIC expression 


Every FOR statement must have a NEXT statement that looks like this: 


. 
NEXT variable 
same variable as the FOR statement 
Got that? Here is another wy to look at it. 

© FOR variable = expression #1 TO expression #2 
i eeeeeeeeee- Same variable 

a NEXT variable 

ee 
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Here are some example-gathering programs for you to RUN. Try them... 
you enter data as requested. Remember, to get out of a ? mode, type 
STOP and press RETURN. 


The first four programs are identical except for Line 30. 


PRINT "N="; ‘PRINT "N="; 
INPUT N INPUT N 

PRINT PRINT 

FOR K=l1 TO N FOR K=1 TO 2*N 
PRINT K; PRINT K; 

NEXT K NEXT K 

PRINT , PRINT 

PRINT PRINT 

GO TO 10 GO TO 10 

END END 


PRINT "N="; PRINT "N="; 
INPUT N INPUT N 

PRINT PRINT . 
FOR K=1 TO Nt2 FOR K=N TO Nt2 
PRINT K; 40 PRINT K; 

NEXT K NEXT K 

PRINT PRINT 

PRINT PRINT 

GO TO 10 GO TO 10 

END END 





10 PRINT “A="; 
15 INPUT A 


20 PRINT “B="; After running the program to 
25 INPUT B the left, make the following 
30 PRINT changes and run it again. 


40 FOR X=A TO B 
50 PRINT X 


60 NEXT X 

70 PRINT 35 LET S=9 
80 GOTO 10 45 LET S=S+X 
99 END 50 PRINT X,S 






Now ean you do the modifteatton 
on Page 44? 
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Ready for the second general form of the FOR statement? 





Secu 
First, two examples. 
10 FOR K=1l TO 9 STEP 2 10 FOR K=0 TO 10 STEP 3. 
20 PRINT K; 20 PRINT K; . 
30 NEXT K .. : 3 30 NEXT K 
99 END 99 END 
| RUN RUN 
& 
1 3 5 9 0 S 6 9 





K is STEPped by 2. K is STEPped by 3. 








The second general form is 


FOR vartable = expression #1 TQ expression #2 STEP expression #3 


FOR & = 1 TO 9 STEP 2 
FOR N = 0 TO 100 STEP 10 
FOR X = A TO B STEP H 
any variable any expression any expression any expression 


Now try this example gathering program. 


10 PRINT "A,B,H="; 
20 INPUT A,B, H 
30 FOR X=A TO B STEP H 





40 PRINT x; Be creative! 
50 NEXT x 
60 PRINT 
70 PRINT 
al 80 GO TO 10 
99 END 
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YOUR TURN 


For the following programs, predict the results printed by the computer, 


then enter the program and RUN it to find out if you were correct. 





10 LET S=0 This program is related 

20 FOR K=1 TO 7 to the second modification 
30 READ P on Page 44 . | 

40 LET S=S+P 


50 NEXT K 

60 PRINT S 

90 DATA 344E6, 2056E6, 228E6 

91 DATA 283E6, 462E6, 243E6, 19E6 
99 END 


AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


A A 
A Rewrite the program on Page 33 . Use a FOR-NEXT A 
A loop to generate the values of N. A 

A 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
A A 
A Rewrite the program on Page 33 so that the values of A 
A N go from A to B in steps of H. The values of A, A 
A B and H should be entered by means of INPUT state- A 
A ments. A 
A A 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
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CHAPTER 7 


A PLACE FOR EVERYTHING — 


SUBSCRIPTED VARIABLES 

Until now, we have used only simple BASIC variables. A simple vari- 
able consists of a letter (A - Z) or a letter followed by a single 
digit (0 - 9). 

For example, the following are simple variables. 


4 R K Pl P2 


Now we want to introduce a new type of variable, called a subsertpted 
vartable. 


Subscripted variable: p (5) 


subscript: 
Say it like this: "P sub 5" 


A subscripted variable names a location in the computer, a box, a 
place to store a number. 


EIGHT SUBSCRIPTED VARIABLES EIGHT SUBSCRIPTED VARIABLES 
p (1) R(1) 
p (2) R (2) 
p (3) R (3) 
p (4) R (4) 
p (5) | R (5) 
p (6) R (6) 
p (7) R (7) 
p (8) R (8) 
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We can also use a variable as a subscript. 








€ ae 
Subscripted variable: P (K) 
7 subscript: 
Call it "P sub kK". 
Below is the 1970 population and growth rate table, presented ina 
Slightly different form from its previous appearance. Note that 
we have included World data as the last line in the table. ? 
REGIONS K P (K) R (K) 
MILLIONS % 
rrr rere errr eee ae a tt A ae 
AFRICA 1 344 2.6 
ASIA 2 2056 2.3 
N. AMERICA 3 228 Led 
L. AMERICA 4 283 2.9 
EUROPE 5 462 0.8 
U.S.S.R. 6 243 1.0 
OCEANIA 7 19 2.0 
WORLD 8 3635 2G - 
‘Re oF 


P(K) is the population in millions of people for region K. For 
example, N. America is region 3. 


P (3) 
R (3) 


228 MILLLON PEOPLE 
1.17 


Your turn. Complete the following. 





p(2) = MILLION PEOPLE 
R(2) = yl a 
p(8) = MILLION PEOPLE 
R (8). = 
Pied 


Here is a program to print a table of K, P(K) and r(K). Our pro- 


Y~ gram includes REMARK statements which (we hope) make the program 

easier for people to read and understand. The computer ignores 
REMARK statements. . 

100 REMARK***READ VALUES INTO P(1),P(2),...,P (8) 

110 FOR K=1 TO 8 

120 READ P (RK) 

130 NEXT K 

200 REMARK***READ VALUES INTO R(1),R(2),..-.,R(8) 

210 FOR K=1 TO 8 Py 


< 220 READ R(K) 
230 NEXT K 
300 REMARK***PRINT THE TABLE 
310 PRINT " K", " P(K)"," R(K)" 
320 PRINT 
330 FOR K=1 TO 8 
340 PRINT K,P(K) ,R(K) 
350 NEXT K 
900 REMARK***DATA FOR P(1),P(2),...,P(8) 
901 DATA 344,2056, 228,283,462, 243,29,3635 
950 REMARK***DATA FOR R(1),R(2),...,R(8) 
O51 DATA. 246 r2adivlels 20 9eu 8 1e2y2 













999 END 
RUN 
K P (K) R (K) 
1 344 2.6 
id 2 2056 2.3 
3 228 a 
4 283 259 remember, P(K) is 
5 462 ae mtlltons of people. 
6 243 ‘i | 
7 19 2 
8 3635 2 
READY. 
In general, a REMARK statement 
2 looks like this: REMARK any remark 
— or this: REM any remark 


au 


How does the program work? 





(1) Lines 110-120 cause (2) Lines 210-230 cause 
the computer to read the computer to read 
the data in Line 901 | the data in Line 95l 
into P(1) through P (8) into R(1) through R(8). 
P (1) R(1) 

P (2) R(2) 
P (3) R (3) > 
P (4) R (4) 
P (5) R(5) 
P (6) R (6) 
P (7) R(7) 
P (8) R(8) 





(3) Lines 310-350 cause the computer to print a heading, then print 
8 rows of numbers. Each row has three numbers: the values of 
K, the value of P(K) and the value of R(K). ae 


Your turn. Let Q(K) be the population in region K, N years from 1970. 
That is, Q(K) is the population of region K in the year 2001. A RUN 
might look like the following. 








RUN 
K P (K) R (K) Q (K) 
1 344 | 2.6 762 
2 2056 2 4161 
3 228 a Oe 320 
4 283 2.9 687 
5 462 .8 591 
6 243 1 331 
7 19 2 35 
g 3635 2 6716 


READY. 
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GOSUB 


A new idea ... subroutines ... and two new statements, GOSUB and RETURN. 
Let's use them in a rewrite of the program on Page 51. 


100 REMARK***MAIN PROGRAM 
110 READ M 

120 GOSUB 820 - 

130 GOSUB 710 


140 STOP 

700 REMARK***SUBROUTINE TO PRINT TABLE OF K,P(K) ,R(K) 
710 PRINT 

720 PRINT " K"," P(K)"," R(K)" 

730 PRINT 


740 FOR K=1 TOM 

750 PRINT K,P(K),R(K) 
760 NEXT K 

770 PRINT 

780 RETURN 


800 REMARK***SUBROUTINE TO RAD DATA INTO P AND R 
810 REMARK***READ VALUES INTO P(1),P(2),...,P(M) 
820 FOR K=l TOM 

830 READ P(K) 

840 NEXT K 

850 REMARK***READ VALUES NTO R(1),R(2),...,R(M) 
860 FOR K=l1 TO M 

870 READ R(K) 

880 NEXT K 

890 RETURN 


900 REMARK***VALUE OF M 

910 DATA 8 

920 REMARK***VALUES OF P(1),P(2),---,P(M) 

930 DATA 344,2056,228,283,462,243,19,3635 aew 
940 REMARK***VALUES OF R(1),R(2),---,R(M) Se. SAE 
950 DATA 2.6,2.3,1.1,2-9,-8,1,2,2 


999 END 
This program has a main program, two subroutines and a data base. The 
Subroutine in Lines 800-890 is called by the GOSUB in Line 120. The 


subroutine in Lines 700-780 is called by the GOSUB in Line 130. More 
about that later. 


Now, RUN the above program. The results should be the same as for 
the program on Page 5l. 
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Let's look at the main program. 


THE STATEMENT | TELLS THE COMPUTER 


100 REMARK***MAIN PROGRAM Ignore me. Move on to the next line. 


110 READ M Read the value of M. It is in the 
DATA statement, Line 910. : 


120 GOSUB 820 Do a subroutine, beginning at Line 
820. On reaching a RETURN statement 
in the subroutine, return here, then 
move on to the next line. 


a? 


130 GOSUB 710 Do a subroutine, beginning at Line 
710. On reaching a RETURN statement 
in the gabroutine, return here, then 
move on to the next line. 


140 STOP Stop the computer. (Computer types 


READY. ) | 
MN 


Let's look at the GOSUB in Line 120 and the subroutine that it calls. 


120 GOSUB 820 computer goes to Line 820 Ras a? 







K***SUBROUTINE TO READ DATA INTO P AND R 
ARK***READ VALUES INTO P(L) ,P(2),-.+,P (M) 
OR K=1 TO M 

830 READ P(K) 

840 NEXT K 

850 REMARK***READ VALUES INTO R(1),R(2),---,R(M) | 
860 FOR K=1 TO M 

870 READ R(K) 

880 NEXT K 

890 RETURN 


RETURN sends the computer to the line following the GOSUB that sent 
the computer to the subroutine. 
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\ Next? We will use the two sibroutines (Lines 700-890) and the data 
base (Lines 900-950) from the program on Page 53. We suggest that 
you punch this information into paper tape so that you can quickly 


re-enter it into the computer. 


Paper tape? Have someone show you how to punch a program into paper 
tape and how to enter a program on paper tape into the computer. It's 


probably in your system user's guide, too. 





Here is a new main program. 


100 REMARK***FUTURE POPULATION, REGION K, YEAR Y 
110 READ M 

120 GOSUB 820 

130 GOSUB 710 

140 PRINT "REGION"; 

150 INPUT K 

160 PRINT "YEAR"; 

170 INPUT Y 

180 LET N=Y-1970 

190 LET Q=P (K)* (1+R(K)/100) tN 


& 4 200 PRINT "POPULATION WILL BE";INT(Q+.5) ;"MILLION" 
se" 210 PRINT 
220 PRINT 


230 GO TO 140 


Enter the above main program, then the two subroutines and the data 
base into the computer, then RUN the program. You should get results 
like the following. 











K P (K) R (K) 
1 344 2~6 
2 2056 203 
a 228 by gus 
4 283 2<9 
5 462 -8 We thtnk , 
6 243 a that you can 
7 19 2 figure out 
8 3635 2 what the 
program ts 
REGION? 1 
YEAR? 2001 


POPULATION WILL BE 762 MILLION 


REGION? Whteh regton do you want? 
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New main program (same old subroutines and data base). 


a. 
100 REMARK***COMPARE TWO REGIONS FOR YEARS 1980,1990,2000 
110 READ M 
120 GOSUB 820 
130 GOSUB 710 
140 PRINT "LET'S COMPARE THE GROWTH OF TWO REGIONS, A AND B." 
145 PRINT "WHEN I ASK, YOU ENTER THE REGION NUMBER (VALUE OF. K)" _ 
150 PRINT "FOR REGION A AND THE NUMBER FOR REGION B. I WILL THEN" 
155 PRINT "PRINT A TABLE SHOWING THE POPULATIONS OF REGIONS A" 
160 PRINT "AND B FOR THE YEARS 1980, 1990 AND 2000." 
170 PRINT 
180 PRINT "REGION A"; > 
190 INPUT A 
200 PRINT "REGION B"; | 
210 INPUT B & 
220 PRINT = 
230 PRINT "YEAR","REGION A","REGION B" 
240 PRINT 
250 LET N=10 
260 LET Q1=P[A] * (1+R[A] /100) +N 
270 LET Q2=P[B] *(1+R[B] /100) +N 
280 PRINT 1970+N,INT(Q1+.5) , INT (Q2+. 5) 
290 LET N=20 
300 LET Q1=P[A] *(1+R[A] /100) +N 
310 LET Q2=P[B]*(1+R[B]/100) +N 
320 PRINT 1970+N,INT(Q1+.5) , INT (Q2+.5) 
330 LET N=30 
340 LET Q1=P[A] *(1+R[A] /100) 4N a 
350 LET Q2=P[B] *(1+R[B]/100) +N | 
360 PRINT 1970+N,INT(Q1+.5) , INT (Q2+.5) 3 See 


370 STOP 


Put it all together and RUN it. 


Then ... 


+ Modify the program so that the table includes information 
for the years 2010 and 3000, (following the information 
for years 1980, 1990, and 2000. Examine the results for 
year 3000 carefully. Do you notice anything peculiar about 
the results? [Beware of mathematical models!] 


~ In the main program above, did you notice that Lines 260-280 
look like Lines 300-320, look like Lines 340-360? Does 
that give you any ideas about a subroutine and three 
GOSUBs? 
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RMT 2s | 


CHAPTER 8 


be ie 
DEMOGRAPHY 
DEMOGRAPHY ? 
Yes, demography. 
demography - the statisttecal sctence dealing with 


the dtstrtbutton, density, vital 
stattsttes, ete. of populatton. 


Our table of population and growth rate for eight population regions 
is a set of demographic statistics. Here is another way to store it 


in the computer. 


Dis a table (matrix, array) of demographic data. 


D is arranged in rows and columns, like this. 


REG LON POPULATION GROWTH RATE 
AFRICA D(1,1) D (1,2) 
ASIA D(2,1) D(2,2) 
N. AMERICA D (3,1) D(3,2). 
L. AMERICA D(4,1) D (4,2) 
EUROPE D(5,1) D (5,2) 
U.S.S.R. D(6,1) D (6,2) 
OCEANIA D(7,1) D(7,2) 
WORLD D(8,1) D(8,2) 





That's right. D(1,1) is a name of a box, location, place to store a. 
number in the computer. So is (D(1,2) and D(2,1) and D(5,2) and 
D(6,1) and D(7,2) and ... . Complete the following. 





+ What number is in D(4,1)? 


+ What number is in D(8,2)? 


+ 


The population of N. AMERICA is in D( ’ ) 


+ The growth rate of U.S.S.R. is in D( ’ ) 
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Have you noticed? D(3,2) 


@e two subscripts: 


left subscript right subscript 
(first subscript) (second subscript) 


In our example on the preceding page 


e The first subscript refers to the region. 
It may be 1,2,3,4,5,6,7,8. (But not O or 9) 


‘ 


@e The second subscript refers to the kind of 
data, 1 for population and 2 for growth rate. 





We can also use variable subscripts. 


D(Kr1) | D(K,2) 
regio’ comtation Region,growth rate 
Or like this: D(K,L) 
Region L=1 for population ; 
L=2 for growth rate 8 


In Chapter 7, we worked with variables that had one subscript. In 
this chapter, we will work through many of the same problems but we 


will use variables that have two subscripts. 


Let's start by rewriting the program on Page 53. 
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Compare the following program with the program on Page 53. 


Saul 
100 REM ARK***MAIN PROGRAM 
110 READ M 
120 GOSUB 820 
130 GOSUB 710 
140 STOP 
700 REM ARK***SUBROUTINE TO PRINT TABLE OF K,D(K,1) ,D(K,2) 
710 PRINT 
720 PRINT " REGION", "POPULATION","GROWTH RATE" 
730 PRINT © 
740 FOR K=l1 TOM 
& 750 PRINT K,D(K,1) ,D(K,2) 
760 NEXT K 
770 PRINT 


780 RETURN 

800 REM ARK***SUBROUTINE TO READ DATA INTO D TABLE 
810 REM ARK***READ VALUES INTO D(1,1),...,D(M,1) 
820 FOR K=l TO M 

830 READ D(K,1) 

840 NEXT K 

850 REM ARK***READ VALUES INTO D(1,2),...,D(M,2) 
860 FOR K=l TO M 

870 READ D(K,2) 

880 NEXT K 

890 RETURN 

900 REM ARK***VALUE OF M 

910 DATA 8 

920 REM ARK***VALUES OF D(1,1),...,D(M,1) 

930 DATA 344,2056,228,283,462,243,19,3635 





Sec 940 REM ARK***VALUES OF D (1,2) 
950° DATA 2.6,20. 3,23 oh.2090~8-le2,2 
999 END 
RUN 

REGION POPULATION GROWTH RATE 
| 344 2.6 

2 2056 5.3 

3 228 1.1 

4 283 2.9 

5 462 8 

6 243 1 

7 19 2 

g 3635 2 


READY. 
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Theré‘s always another way. Here is a different subroutine to read 
the data into the D table. In this subroutine 


800 
810 
820 
830 
840 
850 
860 


The above subroutine must be entered at Line 810 instead of Line 820. 


D(K-L) 


Region L=1l for population 
L=2 for growth rate. 


REM ARK***SUBROUTINE TO READ DATA INTO D TABLE 
FOR L=l TO 2 

FOR K=l TOM 

READ D(K,L) A loop within a loop. 
NEXT K 

NEXT L 

RETURN 


So we change the main program as follows. 


100 
110 
120 
130 
140 


REM ARK***MAIN PROGRAM 

READ M 

GOSUB 810 ¢——__________-. Here is the change. 
GOSUB 710 

STOP 


Now put it all together, main program, new subroutine to read data, 
old subroutine to print the table and old data base. RUN the com- 
plete program. The results should be the same as the results 


obtained using the program on Page 53. 
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CHANGING THE DATA BASE 





ar, 
We got our data base from the 1970 World Population Data Sheet. 
This data sheet lists data for 142 countries plus summaries for 
regional groups of countries. Suppose we set up a data base for 
all 142 countries. Might look like this: 
COUNTRY POPULATION GROWTH RATE 
+ 1 P (1) R(1) 
~ 2 P (2) R(2) 
3 PC) R (3) 
142 P (142) R (142) 
where P(K) is the population for country kK. 


R(K) is the growth rate for country K. 


Or, we could do it like this: 





COUNTRY POPULATION GROWTH RATE 
1 D(1,1) D(1,2) 
2 D(2,1) D(2,2) 
3 D (3,1) D(3,2) 
142 D(142,1) D (142, 2) 


where D(K,1) is the population for country K. 
D(K,2) is the growth rate for country K. 
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In general, suppose ourdata base includes statistics for M countries, 
(region, states, planets, etc.). If M is greater than 10, we must say 
so in our program. For example, we would modify our main program on 


Page 53 as follows. 


100 REMARK***MAIN PROGRAM 
110 READ M 
115 DIM P(M), R(M) €——————-reserves space for 


120 GOSUB 820 the P(K)'s and R(K)'s. # 
130 GOSUB 810 | > 
140 STOP 





The DIM (short for DIMension) tells the computer that 


& Subscripts for P must be less than or equal to M. 
e Subscripts for R must be less than or equal to M. 


If we were using the program on Page 59 , we would add the following 
DIM statement to the main program. 


115 DIM D(M,2) 
This DIM statement tells the computer: 


a Left subscript for D must be less than or equal to M. 


e Right subscript for D must be less than or equal to 2. 
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YOUR TURN ..- LAST TIME! 


Here is your very own data base to play with. 








COUNTRY K POPULATION GROWTH RATE 
AUSTRALIA 1 12.5 1.9 
BRAZIL Zz 93.0 2.8 
CHINA S 759.6 L.8 
COSTA RICA 4 1.8 Sat 
| GERMANY, EAST 5 16.2 0.3 
~ GERMANY, WEST 5 58.6 0.6 
INDIA 6 554.6 2.6 
JAPAN. Z Los335° fed 
MALTA 8 0.3 -0.8 
MEXICO 10 50.7 3.4 
NIGERIA Li So wk 2.6 
PHILLIPINES 12 38.1 3.4 
U.S.S.R. 13 242.6 1.0 
U.A.R. 14 33.9 0.5 
UNITED KINGDOM 15 56.0 2.8 
U.S.A. 16 205.2 Let 


Things to do. 


Se @e ‘Set up a data base for use in the programs on Pages 53 
and 59, 


@ Make any modifications you think are required in the pro- 
grams, then load everything into the computer and RUN, 
RUN, RUN! 


@ Use the above data base in the programs on pages 55 
and 56. 


@ Rewrite the programs on Pages 55 and 56 to use D(K,L) 
instead of P(K) and R(K). RUN them for the original 
data base and then again using the above data base. 





63 


ON BECOMING FLUENT 


Now you can speak a little BASIC. Where do you go from here? Bear up! 
Help is on the way! 


First, get help from your trustworthy computer supplier, DEC. 
EduSystems User's Guides (available for EduSystem 10, 20, 
30, and 50). 
PDP-1l1 BASIC and RSTS-11 BASIC-PLUS User's Guides 


BASIC Application Programs (Sets 1-4) 


BASIC Simulation Programs 


Volume IT - Biology, Earth Science 
Volume II - Chemistry 

Volume III - Mathematics 

Volume IV ~ Physics 

Volume V - Social Studies 

Volume VI = Teacher Assistance 


Programming Languages 
More help? We recommend these. 
Baste BASIC, by James S. Coan. Hayden Book Company, Inc. 
New York, 1970. | 
BASIC Programming (2nd Edition) by John G. Kemeny and 
Thomas E. Kurtz. John Wiley & Sons, Inc., New York, 
1970, 1971. 
Population information? 


Population Reference Bureau, Inc., 1755 Massachusetts 
Avenue, N.W., Washington, D. C. 20036. 


The Populatton Bomb, by Dr. Paul R. Ehrlich, Ballantine 
Books, New York, 1968. 


Populatton, by Roland Pressat. Penguin Books, Inc., 
Baltimore, 1970. 


‘Population Control, edited by Anthony Allison. Penguin 
Books, Inc., Baltimore, 1970. 
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